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The  project  goals  for  the  first  seven  quarters  have  been  achieved. 
These  include! 


1.  Prototype  design, 

2.  Procurement  and  testing  of  components, 

3.  Mathematics  and  algorithm  development, 

4.  Interferogram  and  data  reduction  algorithms, 

5.  Construction  of  first  prototype, 


6.  Automated  operation  software  development, 

7.  Construction  and  evaluation  of  modified  prototype, 

8.  Integration  of  automated  hardware  controls  and  software,  and 

9.  Testing  of  the  full  surface  interferometer  on  aspheric  optical 
surfaces. 


10.  Initiation  of  user  manual  and  documentation 


11.  Additional  testing  and  modification 

12.  Software  refinement  and  development 

I 

i 

The  eighth  (final)  quarter  goals  ares 

i 

1.  Complete  the  writing  of  a  users  manual  and  documentation, 

2.  Additional  testing  and  modification,  and 

3.  Preparartion  of  the  final  report  (eighth  or  final  quarter). 


1  Research  is  supported  by  SDIO/IST  and  managed  by  ONR 
|  Contract  #  N00014-90-C-0246. 
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FULL-SURFACE  INTERFEROMETRIC  TESTING  07  GRAZING  INCIDENCE  MIRRORS 

SEVENTH  QUARTERLY  REPORTS  03/12/92  to  06/11/92 


SUMMARY 


In  the  present  report,  we  present  the  work  done  during  the  period 
of  March  12,  1992  to  June  11,  1992. 

The  tasks  Include  work  on  the  preparation  of  the  user  manual  and 
software  documentation,  as  well  as  additional  testing  and 
modlf icat Ions . 


This  report  Includes  a  detailed  presentation  on  the  following: 

The  user  manual  describing  the  operation  of  the  interferometer 
system.  The  system  operation  is  menu  driven  using  the  function 
keys  for  the  various  steps 

-  A  software  package  overview  describing  the  various  subprograms 
included  in  the  package 

-  The  program  source  code,  including  the  main  menu  program,  the 
motion  control  programs  and  the  data  processing  programs 

-  The  specification  sheets  of  the  motion  control  hardware, 
including  microstepper  and  linear  scanning  stage. 


During  the  next  period  we  will  work  on  the  following  tasks: 

-  complete  the  user  manual  and  documentation 

-  Complete  the  testing  program  and  implement  the 
modifications 


Prepare  the  final  report. 
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Special 


This  report  is  divided  into  four  parts i 

1.  The  initial  version  of  the  user  manual 

2.  Software  package  overview 

3.  Program  source  code  which  is  over  forty  pages  long  and  still 
undergoing  refinement*  Therefore  we  have  only  included  the  first 
two  and  last  two  pages  in  order  to  keep  the  size  of  his  report 
managable.  A  complete  version  of  the  source  code  will  be 
included  in  the  final  report*  However ,  we  can  at  any  time 
provide,  upon  reguest,  an  up-to-date  version  of  the  software. 

4.  specification  sheets  on  the  motion  control  system. 
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1.0  User  Manual:  operation  of  tho  mttrftoaifr  System 


The  cylindrical  mirror  testing  package  user  manual  includes 
the  hardware  motion  controllers  specification  sheets  with 
sample  programs  to  test  the  motion  control  and  system 
operation  menu  driven  software  package  with  the  programs. 

The  motion  control  specifications  list  the  model  and  maker  of 
the  controllers  and  motors,  their  electrical  and  mechanical 
specifications,  wire  connections  of  the  communication  ports 
and  control  software  command  lists. 

The  system  operation  package  is  menu  driven  type  of  functions. 
When  type  "MAINF"  in  DOS  system,  the  display  will  show  a 
message  and  the  MAIN  MENU  on  the  screen.  By  pressing  the 
Function  keys  for  the  desired  operation,  the  user  can 
manipulate  the  interferometer  system  and  implement  some 
specific  control  and  data  processing  for  the  test  mirrors. 
There  are  three  operations  in  the  main  menu  and  are 
implemented  by  pressing  function  keys  FI,  F2  or  F3,  pressing 
the  MESCH  key  will  exit  the  program  and  back  to  DOS  system. 

The  MAIN  MENU  is  shown  in  the  following: 


*818  SYSTEM 


*1  *  TEST  MIRROR  6 CANNING 
*2  I  SINGLE  APERTURE  MEASUREMENT 
*3  t  FULL  SURFACE  MEASUREMENT 
ESCt  EXIT 


The  functions  of  each  operation  are  explained  in  the 
following: 


FI.  TE8T  MIRROR  SCANNING 

The  TEST  MIRROR  SCANNING  is  to  operate  the  interferometer 
system  in  the  scanning  mode,  which  allows  the  user  to  align 
the  cylindrical  test  mirror  with  the  interferometer  and  scan 
the  full  surface  of  the  test  mirror  to  view  the  complete 
inter ferogram. 

When  Function  key  Fi  is  pressed,  the  linear  translation  stage 
(NEAT)  will  be  activated  to  move  the  test  mirror  along 
X-direction  (cylindrical  mirror  axis)  back  and  forth  at  a 
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certain  speed  to  allow  the  user  to  view  and  examine  the  full 
inter ferogram  of  the  test  mirror.  This  processing  can  be 
repeated  by  pressing  the  FI  as  needed. 


F2.  SINGLE  APERTURE  MEASUREMENT 

The  SINGLE  APERTURE  MEASUREMENT  is  to  operate  the 
interferometer  system  to  acquire  a  desired  aperture  of  the 
cylindrical  test  mirror  inter ferogram,  and  compute  the  phase 
of  the  inter  ferogram  and  display  it  in  3-D  wire  frame 
isometric  plot  or  in  thin  line  color  contour  plot. 


P3.  PULL  SURFACE  MEASUREMENT 

The  FULL  SURFACE  MEASUREMENT  is  to  operate  the  interferometer 
system  to  scan  the  cylindrical  test  mirror  in  a  multi-aperture 
mode.  For  the  first  test  mirror,  it  is  assigned  five 
subaperture  to  cover  the  full  mirror. 

It  takes  the  first  subaperture  interferograms  and  stores  in 
the  frame  buffer  then  move  the  test  mirror  to  the  2nd 
position,  then  takes  the  2nd  subaperture  interferograms  and 
stores  in  the  frame  buffer 4  The  same  procedure  repeats  until 
all  five  subaperture  interferograms  are  acquired  and  stored  in 
the  frame  buffer. 

After  all  the  subaperture  interferograms  being  acquired.  The 
program  then  move  the  SUB-MENU  page  for  further  data 
processing.  It  includes  the  following  functions i 


F8IS  SYSTEM 


FI  I  1ST  APERTURE 

P2  I  2ND  APERTURE 

F3  I  3RD  APERTURE 

F4  I  4TH  APERTURE 

PS  I  STM  APERTURE 

PS  I  COMPUTE  ALL  APERTURES 

F?  t  MERGE  THE  FULL  SURFACE 

FS  t  REMOVE  TILT  PLANE  OF  THE  FULL  SURFACE  PHASE  MAP 
ESC!  MAIM  MENU 


The  functions  of  the  sub-menu  are  explained  in  the  following: 


Fl  I  1ST  APERTURE 
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When  Function  key  FI  ie  pressed,  the  program  will  start  to 
load  the  stored  images  of  FIRST  subaperture  interferograms 
into  frame  buffer.  Compute  the  phase  map  and  display  it  in  3-D 
isometric  wire  frame  plot  and  thin  line  contour  plot,  then 
store  in  the  hard  disk.  The  hard  copy  of  the  plot  can  be 
printed  out  in  Laser  Printer  or  other  type  of  printer  by 
pressing  the  keys  “SHIFT"  and  “PRINT  SCREEN*1  at  the  same  time. 


F2  t  2ND  APERTURE 

When  Function  key  F2  is  pressed,  the  program  will  start  to 
load  the  stored  images  of  SECOND  subaperture  interferograms 
into  frame  buffer*  Compute  the  phase  map  and  display  it  in  3-D 
isometric  wire  frame  plot  and  thin  line  contour  plot,  then 
store  in  the  hard  disk.  The  hard  copy  of  the  plot  can  be 
printed  out  in  Laser  Printer  or  other  type  of  printer  by 
pressing  the  keys  “SHIFT”  and  “PRINT  SCREEN'*  at  the  same  time. 


F3  I  3RD  APERTURE 

When  Function  key  F3  is  pressed,  the  program  will  start  to 
load  the  stored  images  of  THIRD  subaperture  interferograms 
into  frame  buffer.  Compute  the  phase  map  and  display  it  in  3-D 
isometric  wire  frame  plot  and  thin  line  contour  plot  and  store 
the  phase  in  the  hard  disk*  The  hard  copy  of  the  plot  can  be 
printed  out  in  Laser  Printer  or  other  type  of  printer  by 
pressing  the  keys  **SHIFT**  and  “PRINT  SCREEN”  at  the  same  time* 


F4  t  4TH  APERTURE 

When  Function  key  F4  is  pressed,  the  program  will  start  to 
load  the  stored  images  of  FORTH  subaperture  interferograms 
into  frame  buffer.  Compute  the  phase  map  and  display  it  in  3-D 
isometric  wire  frame  plot  and  thin  line  contour  plot  and  store 
the  phase  in  the  hard  disk*  The  hard  copy  of  the  plot  can  be 
printed  out  in  Laser  Printer  or  other  type  of  printer  by 
pressing  the  keys  “SHIFT”  and  “PRINT  SCREEN"  at  the  same  time* 


FS  I  5TH  APERTURE 

when  Function  key  F5  is  pressed,  the  program  will  start  to 
load  the  stored  images  of  FIFTH  subaperture  interferograms 
into  frame  buffer.  Compute  the  phase  map  and  display  it  in  3-D 
phase  map  wire  frame  plot  and  thin  line  contour  plot  and 
stored  the  phase  in  the  hard  disk.  The  hard  copy  of  the  plot 
can  be  printed  out  in  Laser  Printer  or  other  type  of  printer 
by  pressing  the  keys  “SHIFT”  and  “PRINT  SCREEN”  at  the  same 
time* 
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F«  I  COMPUTE  ALL  APERTURES 


When  Function  key  F6  is  pressed,  the  program  will  compute  all 
the  five  subapertures  inter ferograms  start  from  first 
subaperture  to  fifth  subaperture.  First  it  load  the  stored 
images  of  1st  subaperture  inter ferograms  into  frame  buffer, 
then  compute  the  phase  and  display  it  in  3-D  wire  frame  plot 
and  thin  line  contour  plot  and  store  the  phase  map  in  the  hard 
disk.  Then  load  the  stored  images  of  the  2nd  subaperture 
interferograms  into  frame  buffer,  compute  the  phase  and 
display  it  in  3-D  wire  frame  plot  and  thin  line  contour  plot 
and  store  in  the  hard  disk.  Repeat  the  same  processing  and 
display  until  all  the  five  subapertures  are  computed  and 
display  and  stored  in  the  hard  disk. 


F7  I  MERGE  THE  FULL  SURFACE 

When  Function  key  F7  is  pressed,  the  program  will  load  all 
five  subapertures  phase  maps  from  the  hard  disk  and  match  the 
phase  between  the  overlap  areas  between  each  subaperture  with 
best  fit  algorithm.  It  does  the  following  operations: 


a.  Load  the  phase  maps  of  subaperture  #3  and  0 2 

b.  Define  the  overlap  area 

c«  compute  the  phase  difference  between  of  subaperture  #3 
and  #2  within  the  overlap  area 

d.  Linear  best  fit  a  plane  on  the  phase  difference  which  is 
computed  in  step  "c" 

f .  Adjust  the  phase  of  subaperture  #2  by  the  linear  best  fit 
plane  function  which  is  computed  in  step  NfH 

g.  Store  the  new  phase  map  of  subaperture  02  into  the  disk 

h.  Load  the  phase  of  subaperture  #1  and  new  phase  map  of 
subaperture  02  which  is  computed  in  step  HgH 

i.  Define  the  overlap  area 

j.  Compute  the  phase  difference  between  subaperture  02  and 
#1  within  the  overlap  area 

k.  Linear  best  fit  a  plane  on  the  phase  difference  which  is 
computed  in  step  MjH 

l.  Adjust  the  phase  of  subaperture  01  by  the  linear  best  fit 
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plane  function  which  ie  computed  in  step  MkM 

a.  store  the  new  phase  map  of  subaperture  #1  In  the  hard 
disk 

n.  Load  the  phase  maps  of  subaperture  *3  and  F4 

o.  Define  the  overlap  area 

p.  Compute  the  phase  difference  between  subaperture  #3  and 
#4  within  the  overlap  area 

q.  Linear  best  fit  a  plane  on  the  phase  difference  which  is 
computed  in  step  MpH 

r.  Adjust  the  phase  of  subaperture  #4  by  the  linear  best  fit 
plane  function  which  is  computed  in  step  MqH 

s.  Store  the  new  phase  map  of  subaperture  #4  in  the  hard 
disk 

t.  Load  the  phase  of  subaperture  #5  and  new  phase  map  of 
subaperture  #4  which  is  computed  in  step  Ms" 

u.  Define  the  overlap  area 

v.  Compute  the  phase  difference  between  subaperture  #4  and 
#5  inside  the  overlap  area 

w.  Linear  best  fit  a  plane  on  the  phase  difference  which  is 
computed  in  step  HvM 

x.  Adjust  the  phase  of  subaperture  #5  by  the  linear  best  fit 
plane  function 

y.  store  the  new  phase  map  of  subaperture  #5 

z.  Rearrange  the  new  phase  maps  of  subapertures  #1  to  #5 
into  a  regular  120  x  120  full  surface  phase  array  and 
store  it  in  hard  disk 


PS  I  REMOVE  TILT  PLANS  OF  TEE  FULL  SURFACE  PHASE  MAP 

When  the  Function  key  F8  is  pressed,  the  program  will  do  the 
following  operations] 

a.  Load  the  new  full  surface  phase  map  which  is  computed  in 
step  *2h  in  Function  F7 

b.  Fit  the  best  fit  plane  on  the  phase  map 


c»  Remove  the  tilt  plane  by  subtracting  the  linear  best  fit 
function  which  is  computed  in  step  MbH 

d«  Display  the  tilt  removed  full  surface  phase  map  in  3-D 
wire  frame  plot  and  thin  line  contour  plot. 

f.  Store  the  tilt  removed  phase  map 


BSCt  MAIM  MENU 

When  HESCN  key  is  pressed ,  the  program  will  return  back  to 
MAIN  MENU  page. 


2.0  Software  Package  overview!  Description  of  the  Sub-Programs 


The  cylindrical  mirror  testing  software  package  includes  a  main 
program  file  and  some  subprogram  files.  Basically  the  subprogram 
files  are  grouped  in  three  groups:  the  translation  stage  motion 
control  subprograms ,  the  phase  measuring  subprograms  and  the  full 
surface  phase  matching  processing  subprograms. 

In  the  following,  the  lists  of  the  program  file  names  and  their 
functions  are  described: 


1.  MAINE 

This  is  the  main  program  of  the  package,  which  includes  two 
menus:  MAIN  MENU  and  SUB  MENU. 

There  are  three  functions  in  the  main  menu: 

1.  TEST  MIRROR  SCANNING 

2.  SINGLE  APERTURE  MEASUREMENT 

3.  FULL  SURFACE  MEASUREMENT 

In  the  third  function  "FULL  SURFACE  MEASUREMENT",  there  are 
sub  menu  to  do  the  further  processing  of  the  multi-aperture 
inter f erograms .  Eight  functions  are  under  this  sub  menu: 

1 .  FIRST  APERTURE 

2 .  SECOND  APERTURE 

3 .  THIRD  APERTURE 

4 .  FORTH  APERTURE 

5.  FIFTH  APERTURE 

6.  COMPUTE  ALL  APERTURES 

7.  MERGE  FULL  SURFACE 
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8.  REMOVE  TILT  PLANE  OF  THE  FULL  SURFACE  PHASE  MAP 


2.  NEATREM1 

Motion  control  subprogram,  called  by  Function  1  in  Main  Menu. 
It  controls  the  test  mirror  stage  moving  forward  3  inches  and 
backward  to  its  home  position 


3.  NEATRKM2 

Motion  control  subprogram,  called  by  Function  3  in  Main  Menu. 
It  controls  the  test  mirror  stage  moving  forward  1/2  aperture 


4.  NEATREM3 

Motion  control  subprogram,  called  by  Function  3  in  Main  Menu. 
It  controls  the  test  mirror  stage  moving  backward  2  apertures 


5.  C7 


Single  Aperture  Phase  measuring  subprogram,  called  by  Function 
2  in  Main  Menu.  It  acguires  the  inter ferograms,  computes  the 
phase  and  displays  it  in  3-0  and  contour  plots 


6.  CIO  -  C14 

Multi-Aperture  Phase  measuring  subprograms,  called  by  Function 
3  in  Main  Menu,  and  Functions  1  to  5  in  sub  Menu.  It  loads  the 
inter ferograms  of  the  subaperture  into  the  frame  buffer, 
computes  the  phase  and  displays  it  in  3-D  and  contour  plots 
and  stores  it  in  the  disk. 


7.  C20  -  C24 

Multi-Aperture  Phase  measuring  subprograms,  called  by  Function 
3  in  Main  Menu,  and  Function  6  in  Sub  Menu.  It  loads  the 
inter  ferograms  of  five  subapertures  in  sequence  into  the  frame 
buffer,  computes  the  phase  and  displays  it  in  3-D  and  contour 
plots  and  stores  it  in  the  disk. 


8.  CC 


Multi-Aperture  Phase  measuring  subprograms,  called  by  Function 
3  in  Main  Menu,  and  Function  7  in  Sub  Menu.  It  loads  all  the 
phase  files  of  the  five  subapertures,  matches  the  phase 
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between  each  subaperture  by  linear  best  fit  algorithm  of  the 
phase  difference  within  the  overlap  zone  between  the  adjacent 
subapertures.  It  adjusts  and  merges  five  subapertures  into  a 
full  surface  file,  display  the  full  surface  phase  map  and 
store  it  in  disk 


9.  CRN 

Multi-Aperture  Phase  measuring  subprograms,  called  by  Function 
3  in  Main  Menu,  and  Function  8  in  Sub  Menu.  It  loads  the  full 
surface  phase  map  file,  fits  the  best  plane,  removes  the  best 
fit  (tilt)  plane,  plots  it  and  stores  it  in  disk. 


3.0  software  package i  Program  Source  code 


3.1  Main  program 


/*  MAIN  PROGRAM:  MAINF  */ 


/include<stdio . h> 

/include<stdlib.h> 

# include<process . h> 

/include<graph.h> 

/include<signal . h> 

/include<dos . h> 

/include  Hsvobj.hH 

/include  Mpxobj.hH 

/include  Hpxip8.hH 

/include  "pxmp.h" 

int  comswitch  *  0  ,  merge  »  0  / 

char  message [78]  ; 

main(msgn,msgc) 

int  msgn  ; 

char  *msgc[]  ; 

{  int  i,j,ch; 

opensi (240, 3 ,0,240,0,0)  ; 
openoriel()  ; 

setvideomode (ERES COLOR)  ; 

3o  (  draw_para()  f 

while  (lkbhit())  ;  while  (kbhit())  ch=  getch()  ; 
if  (ch  —  27) 
break  ,* 

if  (ch  >  58  &6  ch  <  62) 
dographic(ch)  ; 

}  while  (ch  !«  27)  ; 
pxd_video ( ' e  * , 0L)  ; 
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pxd  close () ; 

setvideomode (_TEXTC80)  ; 


callbasic(pga) 
char  *pgm  ; 

{ 

_setvideomode(_TEXTC80)  ; 
system (pga)  ; 

_setvideomode(_ERESCOLOR)  ; 

} 

drawjpara ( ) 

{  char  buf [30]  ; 
int  fkeyp  -  25  ; 
mesg ( )  ; 

d_text (3,18, "WELCOME  TO  CYLINDRICAL  LENS  MEASURING  SYSTEM" , 15) 

d_text(7, fkeyp, "FI  !  TEST  MIRROR  SCANING",15) 
d_teXt(9,fkeyp,"F2  i  SINGLE  APERTURE  MEASUREMENT" , 15)  ; 
dtext (11, fkeyp, "F3  J  FULL  SURFACE  MEASUREMENT" , 15)  ; 
d_text(15, fkeyp, "ESC:  EXIT", 15)  ; 

} 

drawjpara 1 ( ) 

{  char  buf (30)  ; 
int  fkeyp  »  25  ; 
mesg()  ; 

dtext (3, 24, "CYLINDRICAL  LENS  MEASURING  SYSTEM", 15)  ? 
d_text(6, fkeyp, "FI  :  1ST  APERTURE  ",15)  ? 
d_text ( 8 , fkeyp , "F2  t  2ND  APERTURE  ",15)  ; 
d_text (10, fkeyp, "F3  :  3RD  APERTURE  ",15)  ; 
d_text ( 12 , fkeyp, "F4  :  4TH  APERTURE  ",15)  ; 
d_text ( 14 , fkeyp , "F5  :  5TM  APERTURE  ",15)  ; 
d  text  (16,  fkeyp,  "F6  t  COMPUTE  ALL  APERTURES"  ,  15)  ,‘ 
d_text(18, fkeyp, "F7  :  MERGE  THE  FULL  SURFACE", 15)  ; 
d_text(20, fkeyp, "F8  J  REMOVE  TILT  PLANE  OF  FULL  SURFACE  PHASE 
MAP", 15)  ; 

d_text (23, fkeyp , " ESC :  MAIN  MENU", 15)  } 

} 

d_text ( rr , cc , buf , color ) 
int  rr,cc  ; 
char  *buf  ; 
int  color  ; 

{  _settextcolor (color) ; 

_settextposition(rr,cc) ; 

_outtext(buf) ; 

> 

dographic(ch) 
int  ch  ; 

{  char  msg[100]  ; 
switch (ch)  { 
case  59  : 

callbasic("neatreml")  ; 


break  ; 
case  60  : 

takeone ( )  ; 
break  ; 
case  61  ! 

takemulO  ; 

_setvideomode (_ERESCOLOR)  ; 
merge  **  comswitch  »  0  ; 
do  {  draw  paral()  ; 

while  (Tkbhit())  ;  while  (kbhlt())  ch=  getch()  ; 
sprlntf (message, M  \0M)  ; 

If  (ch  -»  27) 

{  _setvideomode (_ERESCOLOR)  ; 
break  ; 

} 

If  (ch  >  58  &&  ch  <  67) 
dographlcl(ch)  ; 

}  while  (ch  1*  27)  i 
_setvideomode(_ERESCOLOR)  ; 
break  ; 

default  :  break  ; 

} 

} 

dographicl(ch) 
int  ch  ; 

{  char  msg[100]  ; 
lnt  1  ; 
switch (ch)  { 
case  59  : 

compute (0)  ; 
break  ; 
case  60  : 

compute (1)  ; 
break  ; 
case  61  : 

compute ( 2 )  ; 
break  ; 
case  62  : 

compute ( 3 )  ; 
break  ; 
case  63  s 

compute ( 4 )  ; 
break  ; 
case  64  * 

for  (1  -  o  ;  1  <  5  ;  1++) 
computel(l)  ; 
break  ; 
case  65  : 

If  (comswitch  31) 

spr lnt f( message, N DATA  FILES  HAVE  HOT  computed  yet 

!  1 1 \o**)  ; 

else 
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Pages  11  through  45  contain  800RCB  CODE  and  have  deliberately  been 
omitted t  A  complete  listing  of  the  FINAL  SOPRCB  code  will  be 

included  In  the  FINAL  REPORT 


goto  drawit 
case4: 

xl=xh(ml) :yl=yh(ml) 

x2*  (h  (m3 )  *xh  (m2 )  -h  (m2 )  *xh (m3 ) )  /  (h  (m3 )  -h (m2 ) ) 
y2= (h  (m3 )  *yh  (m2 )  -h  (m2 )  *yh  (m3 ) )  /  (h  (m3 )  -h  (m2 ) ) 
savx  *  x2  !  savy  *  y2 
goto  drawit 
case5: 

xl=xh (m2 ) s  y l=yh (m2 ) 

x2=(h(ml) *xh(ra3) -h(m3) *xh(ml) ) / (h(ml) -h(ro3) ) 
y2=(h(ml) *yh(m3)-h(m3) *yh(ml) ) / (h(ml) -h(m3) ) 
goto  drawit 
case6: 

xl*xh(m3) syl*yh(m3) 
if  m  >  1  then 
x2  *  savx  :  y2  *  savy 
else 

x2=(h(m2)  *xh(ml)  -h(ml)  *xh(m2) )  /  (h(m2)  -h(ml) ) 
y2=(h(m2)  *yh(ml)  -h(ml)  *yh(m2) )  /  (h(m2)  -h(ml) ) 
end  if 
goto  drawit 
case7 : 

if  ra  >  1  then 
xl  =  savx  i  yl  =  savy 
else 

xl=« (h (m2 )  *xh (ml)  -h (ml)  *xh (m2 ) )  /  (h (m2 )  -h (ml) ) 
yl=(h(m2)  *yh(ml)  -h(ml)  *yh(m2) )  /  (h(m2)  -h(ml) ) 
end  if 

x2«*  (h  (m3 )  *xh  (m2 )  -h  (m2 )  *xh  (m3 ) )  /  (h  (m3 )  -h  (m2 ) ) 
y2=  (h  (m3 )  *yh  (m2 )  -h  (m2 )  *yh  (m3 ) )  /  (h  (m3 )  -h  (m2 ) ) 
savx  *»  x2  }  savy  *  y2 
goto  drawit 
cases ! 

xl* (h  (m3 )  *xh (m2 )  *-h  (m2 )  *xh  (m3 ) )  /  (h  (m3 )  -h  (m2 ) ) 
y  1*  (h  (m3 )  *yh  (m2 )  -h  (m2 )  *yh  (m3 ) )  /  (h  (m3 )  -h  (m2 ) ) 
x2*(h(ml)  *xh(m3)  -h(m3)  *xh(ml) )  /  (h(ml)  -h(m3) ) 
y2* (h (ml)  *yh (m3 )  -h (m3 )  *yh (ml) )  /  (h (ml)  -h (m3 ) ) 
savx  *  xl  :  savy  *  yl 
goto  drawit 
C&S69 • 

xl*(h(ml)  *xh(m3)  -h(m3)  *xh(ml) )  /  (h(ml)-h(m3) ) 
yl*(h(ml)  *yh(m3)  -h(m3)  *yh(ml) )  /  (h(mi)  -h(m3) ) 
if  m  >  1  then 
x2  *  savx  t  y2  *  savy 

else 

x2*(h(m2) *xh(ml) -h(ml) *xh(m2)  )/(h(m2)-h(ml) ) 
y2*(h(m2)*yh(ml)-h(ml)*yh(m2)  )/(h(m2)-h(ml) ) 
end  if 
drawit : 

xl  *  int(xl) 
x2  *  int(x2) 
yl  *  int(yl) 
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y2  *  int(y2) 

line  (xl,yl)-(x2,y2) , colors (k) 
caseO :  next  n 

noneintri:  next  k 
none inbox:  next  i 
none inbox 1:  next  j 
10202  end  sub 


sub  box  static 
line (0,0) -(639, 349) , ,b 
line (0, 14) -(639, 14) 
line (3, 16) -(636, 346) , ,b 
end  sub 


sub  dodata  static 

open  wt.datH  for  input  as  #1 

input  #l,top%,bot%,max,min 
for  i%  *  top%  to  bot% 

input  #l,bd%(l,i«) ,bd%(2,i%) 
for  j%  **  bd%(l,i%)  to  bdt(2,i%) 
input  #l,zz%(j%,i%) 
next  j% 
next  i% 
close 

call  tiltterm 
call  removetilt 
end  sub 

sub  removetilt  static 
xf  *  119 
xe  *  0 

max  *  -32767 
min  *  32767 
for  i%  *  top%  to  bot% 
if  xf  >  bd% (1, i%)  then  xf  *  bd%(l,i%) 
if  xe  <  bd% (2 , i%)  then  xe  *  bd%(2,i%) 
for  j%  **  bd%(l,i%)  to  bd%(2,i%) 

zz%( j%,i%)*  zz%( j%, i%) -(coel+coe2*j%+coe3*i%) 
if  max  <  zz% ( j%, i%)  then  max  aa  zz%(j%,i%) 
if  min  >  zz%(j%,i%)  then  min  zz%(j%,i%) 
next  j% 
next  i% 
yf  *  top%  +  2 
ye  *  bot%  -  2 
Xf  *  Xf  +  3 
xe  -  xe  -  3 

end  sub 
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sub  tiltterm  static 
n  «  0 
x  »  0 

y  -  0 

xy  =  o 
xx  *  0 

yy  -  o 

W  =  0 

wx  =  o 

wy  *  0 

•  print  top% , bot% 

for  i%  **  top%  to  bot% 
for  j%  -  bd% (1, i%)  to  bd%(2,i%) 
iii  -  i% 
jjj  -  j% 

zzz  =  zz%(j%,i%) 
n=n+l 

x*x+jjj 
y=y+iii 
xx=xx+j j j A2 
yy=yy+iiiA2 
xy=xy+iii*j j j 
w=w+zzz 
wx=wx+zzz*j j j 
wy=wy+zzz*iii 
next  j% 

•  print  n;i%;bd%(l,i%) ;bd%(2,i%) ,w;wx;wy 
next  i% 

det*N*xx*yy+x*xy*y+x*y*xy-xx*y*y-H*xy*xy-x*x*yy 
coel* (w*xx*yy+wx*xy*y+x*xy *wy-xx*y*wy-w*xy*xy-wx*yy*x) /det 
coe2* (N*wx*yy+x*y*wy+w*xy*y-wx*y*y-H*wy*xy-w*x*yy) /det 
coe3= (N*xx*wy+x*w*xy+x*y*wx-y*w*xx-H*xy*wx-x*x*wy) /det 
end  sub 


4.0  Spool float ion  shoots t  Motion  control  fltlfcfiai 

4.1  ORIBL  STEPPER  MIES  MOTOR  AMD  CONTROLLER  SPECIFICATION 


A.  Motor  controller 

ORIEL  RS  232  Stepper  Interface  Controller. 

Specification t 

Number  of  controlled  stepper  motors:  Up  to  two,  Individually. 

Data  I/O :  300,600,1200,2400,4900,9600  baud,  switch  selectable. 

Compatible  stepper  motor:  2  or  4  phase  unipolar  motor,  24V,  0.5  A  max,  per  phase. 
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Winding  holding  current: 

Limit  switch  connections : 
Maximum  speed : 

Full  step  mode: 

Computer  interface: 

Power  requirements: 

B*  Motor 

ORIEL  Stepper  Mike.  Model  18500. 

Specification: 

Step  Size: 

Full  step  mode: 

Maximum  step  rate: 

Full  step  mode: 

Maximum  spindle  speed: 
Maximum  axial  load: 
Uni-directional  repeatability: 
Backlash: 

Havel  Range: 


Reduced  to  0.1  A  per  phase. 

Low  logic  level  =  limit  readied. 

Half  step  mode:  1000  steps  /  sec. 

500  steps  /sec. 

RS  232. 

110/220-240  VAC  50/60  Hz,  switch  selectable. 


Half  step  mode:  1.3,  0. 7  tun. 

2  urn. 

Half  step  mode:  1000  steps  /  sec. 
500 steps  /sec. 

1  mm  /sec. 

15.5  lbs. 

<  2  urn. 

<  3  urn. 

0.5*,  (13  mm). 


c«  Wiring  specification  of  the  communication  Port 

Computer:  RS232  9  pin  (F)  adapter. 

2:  (Red) 

3:  (Green) 

5:  (Black) 

6,7,8:  Short  circuit. 

Controller:  25  pin  (M)  adapter. 

2:  (Red) 

3:  (Green) 

1,7:  (Black) 

Controller  to  Motor  :  10  lines  Rainbow  cable. 

D.  Motor  control  Software  command  seta 

RS  232  serial  control,  7  data  bit,  1  stop  bit,  no  parity  bit,  ASCII  data  format. 
Command  Set: 

A,B:  Direct  the  flow  of  command,  data,  status  Inquiries  to  motor  control  register. 
C:  Clear  absolute  register  to  zero,  (set  logic  origin). 

D:  Disable  motor  driver. 

E:  Enable  the  motor  driver. 

F:  Change  to  fldl  step  mode. 

G:  Go  absolute. 

Format  G  +/-  dddd,  *,  *  is  necessary  to  stop  data  field. 

dddd  Is  the  number  of  steps  to  go. 

H:  Change  to  half  step  mode. 

1:  Inquire  the  status  of  motor,  return  *d’,d  *0-7 
bit  0,  direction:  CW  *  1 ,  CCW  *  0. 
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bit  1,  step  size:  half  “  1  ,full  ■»  0. 

bit  2,  E/D  status:  Enable  =  1,  disable  «■  0. 

Q:  Inquire  the  status  of  translator,  return  *d\d  -  0  -  7 
bit  0,  motor:  On  -  1 ,  Off  **  0. 
bit  I,  CW  limit:  yes  *»  1  ,  no  *  ft 
bit  2,  CCW  limit:  yes  =  1 ,  no  -  0. 

R-  Set  up  the  desired  step  rate  for  each  motor. 

Format:  Rn,  n  *  0  -  7. 

S:  To  start  the  moving. 

T:  Travel  relative  steps. 

Format:  Tdddddddd, 

Z*  Move  to  the  logic  origin,  (the  position  of  absolute  register  =  0) 
<S>:  Unconditional  stop  both  motor. 

>:  Move  single  step  In  CW  direction. 

<:  Move  single  step  In  CCW  direction. 

*:  Start  both  motors  simultaneously. 

*  After  command  set,  eg  AT1000,BT1000. 

+:  Set  direction  to  CW. 

-:  Set  direction  to  CCW. 


4.2  MEAT  MOTOR  AND  CONTROLLER  SPECIFICATION 


A.  Motor  Controller 


NEAT-3 10M  Programmable  Stepping  Motor  Controller. 


Specification: 
Drive  Type: 


Memory  buffer: 
Velocity  Range: 

Position  Range: 
Computer  Interface: 
Power  requirements: 


54  volt  bipolar  chopper 

.  7  to  3.5  Amps/Phase,  half-coil 

1.5  to  7  Amps/Phase,  full-coil 

8  or  32  K  bytes  non-volatile  program  memory 

40  to  327,640  steps  /sec. 

40  Hz  resolution. 

-8,388,608  to  +8,388,608  steps 

RS  232.  /  8  bit  parallel  communication  port 

115/230  VA.C.  50/60  Hz,  1.5  Amps 


B.  control  Software  Command  fiats. 

RS  232  serial  control,  8  data  bit,  1  stop  bit,  no  parity  bit,  ASCII  data  format. 
Command  Set: 

MR-  Move  relative. 

Format:  MRdddddddd  dddddddd  range  from  -8,388,608  to  +  8,388,608 
MA:  Move  absolute. 

Format:  MAdddddddd  dddddddd  range  from  -8,388,608  to  +  8,388,608 
MH:  Move  physical  origin  position. 

MC:  Move  continuous. 
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Format  MC+/-. 

SP:  Set  absolute  register  counter  value. 

VI:  Set  Initial  velocity. 

Format:  VMddddddd  dddddddd  range  from  40  to  327,690 
default  is  4000  steps  /  sec. 

The  primary  resonance  is  at  400-1200 steps  /sec.  the  maximum  allowable  start /stop frequency  is  load 
dependent,  typically  below  6000  /  seels  safe. 

VF:  Set  final  velocity. 

Format:  VFdddddddd  dddddddd  range  from  40  to  327,690 
AC:  Set  acceleration  and  deceleration. 

Format:  AC(+ /-/dddddddd  ,  '+  'for  acceleration,  ’-’for  deceleration,  without  sign  for  both. 

ST:  Stop  moving  immediately. 

ME:  Mnemonic  Expansion. 

Format:  MFE  for  enable,  MED  for  disable. 

MF:  Move  finish  signal  feed  back. 

Format:  MFE  for  enable,  MFD  for  disable. 

C.  Wiring  Specification  of  ttaa  communication  Porta 

Computer:  RS232  9  pin  (F)  adapter. 

2:  (Red) 

3:  (Green) 

5:  (Black) 

6,7,9:  Short  circuit. 

Controller:  25  pin  (M)  adapter. 

2:  (Green) 

3:  (Red 
1,7:  (Black) 
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